<script>on mouseUppush cdgo to cd "Map"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>14</left>
<top>14</top>
<right>396</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>18</textSize>
<textStyle>condense</textStyle>
<textHeight>24</textHeight>
<name>Topic</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>224</left>
<top>24</top>
<right>391</right>
<bottom>42</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Subtopic</name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>12</left>
<top>44</top>
<right>394</right>
<bottom>307</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>15</textHeight>
<name>Wisdom</name>
<script>on closeFieldput the date into bg fld "date"end closeField</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>478</left>
<top>310</top>
<right>510</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30026</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>go back</name>
<script>on mouseUppop cdend mouseUp</script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>489</left>
<top>0</top>
<right>512</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>v</name>
<script>on mouseUpdo "get "&&the targetset lockmessages to truelock screenrepeat with c = 1 to number of cdsgo to next cddo "put it into"&&the targetend repeatunlock screenset lockmessages to falseend mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>378</left>
<top>0</top>
<right>411</right>
<bottom>12</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>SeqFld</name>
<script>on mouseUpdo "get "&&the targetset lockmessages to truelock screenrepeat with c = 1 to number of cdsgo to next cddo "put it into"&&the targetend repeatunlock screenset lockmessages to falseend mouseUp</script>
<script>--Sample script for invoking "Findem"--Created on Saturday, March 24, 1990on mouseUpglobal dResult, cdList,refList, lastFindStr,lastChkboxput return into CR-- --------------------------------- Items in Dialog: "Findem"-- --------------------------------- 1 ◊ Button "Find"-- 2 ◊ Button "Cancel"-- 3 ◊ Editable Text "Some Text"-- 4 ◊ Checkbox "Whole Words"-- 5 ◊ Static Text "Find:"-- -------------------------------dChanger "FoundList"&return&"Dismiss"put Dialoger("Findem","3◊"&lastFindStr,"4◊"&lastChkbox) into dResultif line 2 of dResult is not empty or line 3 of dResult is emptythen exit mouseUpif word 1 of dResult is "Error:" then answer dResultput line 3 of dResult into lastFindStrput line 4 of dResult into lastChkboxput id of this cd into startIDlock screengo first cd of this bgput empty into cdListput empty into refListrepeat foreverif lastChkbox is truethen find whole lastFindStr in bg fld wisdomelse find lastFindStr in bg fld wisdomif the result is not empty then exit repeatunlock screenget id of this cdif it is in cdList then exit repeatput it & return after cdListput (line 1 of bg fld "topic")&&"—"&&(line 1 of bg fld "subtopic")&return after refListif the mouse is down thenanswer "Shall I stop searching?" with "No" or "Yes"if it is "Yes" then exit repeatend ifgo nextend repeatif cdList is not empty thengo (line 1 of cdList)get dialoger("FoundList" & return & "on foundHit"¬,"0◊float"¬,"1◊styledText geneva,9"&return&"Found "&(number of lines in refList)¬&&"occurrences of '"&(line 3 of dresult)&"'"¬,"2◊userList geneva,9"&return&refList)elsego startIDunlock screenanswer "No matches found. Try another?" with "No" or "Yes"if it is "No" then exit mouseUpelse send mouseUp to meend ifend mouseUp</script>
</part>
<name>InfoCards</name>
<script>on newCardlock screengo prevget bg fld "topic"go nextput it into bg fld "topic"go prevget bg fld "subtopic"go nextput it into bg fld "subtopic"unlock screenend newCard</script>